home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 1 / SpanishScene1.iso / spanish pack n°1 by llfb / --llfb-- / programas / sources1.dms / sources1.adf / SOURCES / ShadeBobs / ShadeBobs.ASM next >
Assembly Source File  |  1996-06-04  |  17KB  |  437 lines
  1. ;COLORMAGIC II BY LADO OF FI-RE CREW !!!!
  2.  
  3.  
  4. ;    org     $22000
  5. ;    load     $22000
  6.  
  7.     Section    Roman,code_c
  8.     
  9. j    bsr    re7
  10.     
  11.     lea     $dff000,a6                ;custom
  12. km1    move.l     4(a6),d0        ;waitraster
  13.     lsr.l     #8,d0
  14.     cmp.w    #$130,d0
  15.     bne    km1
  16.     move.w     #$7fff,$96(a6)
  17.     move.w     #$7fff,$9a(a6)
  18.     move.l     #copper,$84(a6)
  19.     clr.w     $8a(a6)                 ;start copper
  20.     move.w     #$87c0,$96(a6)
  21.     move.w     #$c010,$9a(a6)
  22. wait    cmp.b    #$ff,6(a6)
  23.     bne     wait
  24.     bsr    pixar
  25.     btst     #6,$bfe001               ;bal eger
  26.     bne     wait
  27. k1    btst     #$e,2(a6)
  28.     bne     k1
  29.     move.w     #$7fff,$9a(a6)
  30.     move.w     #$7fff,$96(a6)
  31.     clr.w    $88(a6)
  32.     move.w     #$87f0,$96(a6)
  33.     move.w     #$e02c,$9a(a6)
  34.     moveq     #0,d0
  35.     rts
  36.  
  37. pixar    btst    #$e,2(a6)
  38.     bne    pixar
  39.     move.l    #-1,$44(a6)        ;maszk
  40.     lea    tarolo(pc),a5        ;work area
  41.     move.l    textura(pc),a2        ;aktualis minta
  42.     lea    datas1(pc),a0        ;y
  43.     lea    datas2(pc),a1        ;x
  44.     movem.w    code1(pc),d2-d5        ;y,addy,x,addx
  45.     moveq    #7,d6
  46. re1    move.w    (a1,d2.w),d0        ;y
  47.     add.w    (a1,d3.w),d0        ;addy
  48.     move.w    (a0,d4.w),d1        ;x
  49.     add.w    (a0,d5.w),d1        ;addx
  50.     movem.w    d2-d6,-(sp)        ;y,addy,x,addx,db --> verem
  51.     movem.l    code2(pc),d2-d7        ;$ffffffff-tel feltoltes
  52.     lea    $7f0ba,a3
  53.     movem.l    d2-d7,-(a3)
  54.     movem.l    d2-d7,-(a3)
  55.     movem.l    d2-d7,-(a3)
  56.     movem.l    d2-d7,-(a3)
  57.     movem.l    d2-d7,-(a3)
  58.     movem.l    d2-d7,-(a3)
  59.     movem.l    d2-d7,-(a3)
  60.     movem.l    d2-d5,-(a3)
  61.     mulu    #$c8,d0            ;y*kepernyo szelesseg
  62.     add.l    #$70000,d0        ;aktualis sor
  63.     move.w    d1,d3            ;x
  64.     lsr.w    #3,d1            ;x/8  --> oszlop
  65.     add.w    d1,d0            ;a minta uj helye
  66.     move.w    d0,(a5)+                ;pozicio letarolasa
  67.     ror.w    #4,d3            ;ASHift ertek  0-3.bit --> 12-15.-be
  68.     and.w    #$f000,d3        ;levalasztas
  69.     or.w    #$0f6a,d3        ;USE ABCD  LF:
  70.     move.l    #$7f000,d1        ;A forras
  71.     move.l    #$7f0c0,d2        ;D cel
  72.     move.w    #$07c3,d6        ;blt.size    f=35,v=48
  73.     move.w    #$c2,d4            ;BMOD
  74.     moveq    #0,d5            ;AMOD,DMOD
  75.     moveq    #4,d7            ;5 bitmezo van
  76. re2    move.w    #$0dc0,$40(a6)        ;USE B,A,D  LF:D=AB
  77.     movem.l    d0-d2,$4c(a6)        
  78.     move.w    d4,$62(a6)
  79.     move.l    d5,$64(a6)
  80.     move.w    d6,$58(a6)
  81.     nop
  82.     move.w    d3,$40(a6)
  83.     movem.l    d0-d1/a2,$48(a6)
  84.     move.l    d0,$54(a6)
  85.     movem.w    d4-d5,$60(a6)
  86.     move.w    d4,$66(a6)
  87.     move.w    d6,$58(a6)
  88.     add.w    #$28,d0
  89.     exg    d1,d2
  90.     dbf    d7,re2
  91.     movem.w    (a7)+,d2-d6
  92.     add.w    code3(pc),d2
  93.     add.w    code3+2(pc),d3
  94.     add.w    code3+4(pc),d4
  95.     add.w    code3+6(pc),d5
  96.     and.w    #$3fe,d2
  97.     and.w    #$3fe,d3
  98.     and.w    #$3fe,d4
  99.     and.w    #$3fe,d5
  100.     dbf    d6,re1
  101. bel1    add.w    #0,code1+2
  102. bel2    add.w    #0,code1+4
  103. bel3    add.w    #0,code1+6
  104. bel4    add.w    #0,code1+8
  105.     and.w    #$3fe,code1+2
  106.     and.w    #$3fe,code1+4
  107.     and.w    #$3fe,code1+6
  108.     and.w    #$3fe,code1+8
  109.     
  110. re3    btst    #$e,2(a6)
  111.     bne    re3
  112.     move.l    #$09f00000,$40(a6)
  113.     move.l    #$00220022,$64(a6)
  114.     lea    tarolo(pc),a0
  115.     move.l    #$70000,$50(a6)
  116.     move.l    #$60000,$54(a6)
  117.     moveq    #7,d7
  118.     move.w    #$8400,$96(a6)
  119. re4    move.w    (a0),$52(a6)
  120.     move.w    (a0)+,$56(a6)
  121.     move.w    #$2803,$58(a6)
  122.     dbf     d7,re4
  123.     
  124.     tst.w     lass
  125.     bmi    init
  126.     subq.w    #1,lass
  127.     rts
  128. init    move.w    #$e0,lass        ;FRICI ! Amig fenn van egy kep !
  129.     add.w    #32,pointr        ;next data structure
  130. re5    btst    #$e,2(a6)
  131.     bne    re5
  132. re7    lea    form(pc),a0        ;adatok
  133.     add.w    pointr(pc),a0
  134.     tst.w    (a0)
  135.     bpl    noend
  136.     clr.w    pointr
  137.     bra    re7    
  138. noend    movem.w    (a0)+,d0-d3
  139.     movem.w    d0-d3,code1+2
  140.     movem.w    (a0)+,d0-d3
  141.     movem.w    d0-d3,code3
  142.     movem.w    (a0)+,d0-d3
  143.     move.w    d0,bel1+2
  144.     move.w    d1,bel2+2
  145.     move.w    d2,bel3+2
  146.     move.w    d3,bel4+2
  147.     move.l    (a0)+,a1
  148.     move.l    (a0),textura
  149.     lea    $60000,a0
  150. re6    clr.l    (a0)+
  151.     cmp.l    #$80000,a0
  152.     bcs    re6
  153.     moveq    #31,d7
  154.     lea    copcol(pc),a0
  155. ujc    move.w    (a1)+,(a0)
  156.     addq.w    #4,a0
  157.     dbf    d7,ujc
  158.     rts
  159.  
  160. copper    dc.w     $8e,$1e1d,$90,$7fd1,$92,$30,$94,$c8,$102,$88,$96,$20
  161.     dc.w     $100,$200,$108,$a0,$10a,$a0
  162.     dc.w     $e0,6,$e2,0,$e4,6,$e6,$28,$e8,6,$ea,$50
  163.     dc.w     $ec,6,$ee,$78,$f0,6,$f2,$a0,$180
  164. copcol    dc.w     0,$182,0,$184,0,$186,0,$188,0
  165.     dc.w    $18a,0,$18c,0,$18e,0,$190,0
  166.     dc.w     $192,0,$194,0,$196,0,$198,0
  167.     dc.w    $19a,0,$19c,0,$19e,0,$1a0,0
  168.     dc.w     $1a2,0,$1a4,0,$1a6,0,$1a8,0
  169.     dc.w    $1aa,0,$1ac,0,$1ae,0,$1b0,0
  170.     dc.w     $1b2,0,$1b4,0,$1b6,0,$1b8,0
  171.     dc.w    $1ba,0,$1bc,0,$1be,0,$2c01,$fffe
  172.     dc.w    $100,$5200
  173.     dc.w     $ffdf,$fffe,$3201,$fffe,$100,$200,$ffff,$fffe
  174.  
  175.  
  176. ;FRICI !!! itt vannak a szinek ! csinalhatsz ujakat is !!!
  177.  
  178.  
  179.  
  180. color1    dc.w    $124,$224,$224,$324,$434,$545,$656,$767,$878,$989,$a9a
  181.     dc.w    $bab,$cbc,$dcd,$ede,$fef,$fff,$ffe,$eed,$ddc,$ccb
  182.     dc.w    $bba,$aa9,$998,$887,$776,$665,$554,$443,$334,$224,$124
  183.  
  184. color2    dc.w    $101,$202,$202,$313,$424,$535,$646,$757,$868,$979,$a8a
  185.     dc.w    $b9b,$cac,$dbd,$ece,$fdf,$fff,$fff,$eee,$ddd,$ccc
  186.     dc.w    $bbb,$aaa,$999,$888,$777,$666,$555,$444,$333,$222,$111
  187.  
  188. color3    dc.w    $100,$200,$200,$300,$400,$500,$600,$700,$800,$900,$a00
  189.     dc.w    $b00,$c00,$d00,$e00,$f00,$f00,$ff0,$ee0,$dd0,$cc0
  190.     dc.w    $bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
  191.  
  192. color4    dc.w    $10,$20,$20,$30,$40,$50,$60,$70,$80,$90,$a0
  193.     dc.w    $b0,$c0,$d0,$e0,$f0,$f0,$ff0,$ee0,$dd0,$cc0
  194.     dc.w    $bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
  195.  
  196. color5    dc.w    $1,$2,$2,$3,$4,$5,$6,$7,$8,$9,$a
  197.     dc.w    $b,$c,$d,$e,$f,$f,$ff0,$ee0,$dd0,$cc0
  198.     dc.w    $bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
  199.  
  200. ;FRICI !!! az alabbi szamokat valtoztasd,mas alakzat erdekeben !!!!!! 
  201.  
  202.  
  203. form    dc.w    0,0,$140,$140,$a0,$a0,$a0,$a0,$16,0,$16,0
  204.     dc.l    color1,minta1
  205.  
  206.     dc.w    0,0,$100,$100,$62,$62,$62,$62,$20,$1e,$20,$1e
  207.     dc.l    color2,minta2
  208.  
  209.     dc.w    0,0,$100,$100,$80,$80,$80,$80,$10,8,$10,8
  210.     dc.l    color3,minta2
  211.  
  212.     dc.w    0,0,$140,$140,$50,$50,$50,$50,6,6,6,6        
  213.     dc.l    color4,minta3                
  214.  
  215.     dc.w    0,0,$100,$100,$56,$56,$56,$56,$10,$12,$10,$12
  216.     dc.l    color5,minta2
  217.  
  218.     dc.w    $ffff        ;vege jel
  219.     
  220.     ;32*6 byte   = 192
  221.  
  222.  
  223. ;FRICI !!!  Ezeket a mintakat masolom fel ! Csinalj ujakat !
  224.  
  225.  
  226. minta1    dc.w    %0000000000000001,%0000000000000000,0
  227.     dc.w    %0000000000000001,%0000000000000000,0
  228.     dc.w    %0000000000000011,%1000000000000000,0
  229.     dc.w    %0000000000000011,%1000000000000000,0
  230.     dc.w    %0000000000000111,%1100000000000000,0
  231.     dc.w    %0000000000000111,%1100000000000000,0
  232.     dc.w    %0000000000001111,%1110000000000000,0
  233.     dc.w    %0000000000001111,%1110000000000000,0
  234.     dc.w    %0000000000011111,%1111000000000000,0
  235.     dc.w    %0000000000011111,%1111000000000000,0
  236.     dc.w    %0000000000111111,%1111100000000000,0
  237.     dc.w    %0000000000111111,%1111100000000000,0
  238.     dc.w    %0000000001111111,%1111110000000000,0
  239.     dc.w    %0000000001111111,%1111110000000000,0
  240.     dc.w    %0000000011111111,%1111111000000000,0
  241.     dc.w    %0000000011111111,%1111111000000000,0
  242.     dc.w    %0000000111111111,%1111111100000000,0
  243.     dc.w    %0000000111111111,%1111111100000000,0
  244.     dc.w    %0000001111111111,%1111111110000000,0
  245.     dc.w    %0000001111111111,%1111111110000000,0
  246.     dc.w    %0000011111111111,%1111111111000000,0
  247.     dc.w    %0000011111111111,%1111111111000000,0
  248.     dc.w    %0000111111111111,%1111111111100000,0
  249.     dc.w    %0000111111111111,%1111111111100000,0
  250.     dc.w    %0001111111111111,%1111111111110000,0
  251.     dc.w    %0001111111111111,%1111111111110000,0
  252.     dc.w    %0011111111111111,%1111111111111000,0
  253.     dc.w    %0011111111111111,%1111111111111000,0
  254.     dc.w    %0111111111111111,%1111111111111100,0
  255.     dc.w    %0111111111111111,%1111111111111100,0
  256.     dc.w    %1111111111111111,%1111111111111110,0
  257.     dc.w    %1111111111111111,%1111111111111110,0
  258.  
  259. minta2    dc.w    %0000000000001111,%1110000000000000,0
  260.     dc.w    %0000000001111111,%1111110000000000,0
  261.     dc.w    %0000000111111111,%1111111100000000,0
  262.     dc.w    %0000001111111111,%1111111110000000,0
  263.     dc.w    %0000011111111111,%1111111111000000,0
  264.     dc.w    %0000111111111111,%1111111111100000,0
  265.     dc.w    %0001111111111111,%1111111111110000,0
  266.     dc.w    %0011111111111111,%1111111111111000,0
  267.     dc.w    %0011111111111111,%1111111111111000,0
  268.     dc.w    %0111111111111111,%1111111111111100,0
  269.     dc.w    %0111111111111111,%1111111111111100,0
  270.     dc.w    %0111111111111111,%1111111111111100,0
  271.     dc.w    %1111111111111111,%1111111111111110,0
  272.     dc.w    %1111111111111111,%1111111111111110,0
  273.     dc.w    %1111111111111111,%1111111111111110,0
  274.     dc.w    %1111111111111111,%1111111111111110,0
  275.     dc.w    %1111111111111111,%1111111111111110,0
  276.     dc.w    %1111111111111111,%1111111111111110,0
  277.     dc.w    %1111111111111111,%1111111111111110,0
  278.     dc.w    %0111111111111111,%1111111111111100,0
  279.     dc.w    %0111111111111111,%1111111111111100,0
  280.     dc.w    %0111111111111111,%1111111111111100,0
  281.     dc.w    %0011111111111111,%1111111111111000,0
  282.     dc.w    %0011111111111111,%1111111111111000,0
  283.     dc.w    %0001111111111111,%1111111111110000,0
  284.     dc.w    %0000111111111111,%1111111111100000,0
  285.     dc.w    %0000011111111111,%1111111111000000,0
  286.     dc.w    %0000001111111111,%1111111110000000,0
  287.     dc.w    %0000000111111111,%1111111100000000,0
  288.     dc.w    %0000000001111111,%1111110000000000,0
  289.     dc.w    %0000000000001111,%1110000000000000,0
  290.  
  291. minta3    dc.w    %1111111111111111,%1111111111111110,0
  292.     dc.w    %1111111111111111,%1111111111111110,0
  293.     dc.w    %1111111111111111,%1111111111111110,0
  294.     dc.w    %1111111111111111,%1111111111111110,0
  295.     dc.w    %1111111111111111,%1111111111111110,0
  296.     dc.w    %1111111111111111,%1111111111111110,0
  297.     dc.w    %1111111111111111,%1111111111111110,0
  298.     dc.w    %1111111111111111,%1111111111111110,0
  299.     dc.w    %1111111111111111,%1111111111111110,0
  300.     dc.w    %1111111111111111,%1111111111111110,0
  301.     dc.w    %1111111111111111,%1111111111111110,0
  302.     dc.w    %1111111111111111,%1111111111111110,0
  303.     dc.w    %1111111111111111,%1111111111111110,0
  304.     dc.w    %1111111111111111,%1111111111111110,0
  305.     dc.w    %1111111111111111,%1111111111111110,0
  306.     dc.w    %1111111111111111,%1111111111111110,0
  307.     dc.w    %1111111111111111,%1111111111111110,0
  308.     dc.w    %1111111111111111,%1111111111111110,0
  309.     dc.w    %1111111111111111,%1111111111111110,0
  310.     dc.w    %1111111111111111,%1111111111111110,0
  311.     dc.w    %1111111111111111,%1111111111111110,0
  312.     dc.w    %1111111111111111,%1111111111111110,0
  313.     dc.w    %1111111111111111,%1111111111111110,0
  314.     dc.w    %1111111111111111,%1111111111111110,0
  315.     dc.w    %1111111111111111,%1111111111111110,0
  316.     dc.w    %1111111111111111,%1111111111111110,0
  317.     dc.w    %1111111111111111,%1111111111111110,0
  318.     dc.w    %1111111111111111,%1111111111111110,0
  319.     dc.w    %1111111111111111,%1111111111111110,0
  320.     dc.w    %1111111111111111,%1111111111111110,0
  321.     dc.w    %1111111111111111,%1111111111111110,0
  322.  
  323.  
  324. datas1      dc.w $0048,$0049,$004A,$004B,$004C,$004C,$004D,$004E,$004F,$0050
  325.       dc.w $0051,$0052,$0053,$0053,$0054,$0055,$0056,$0057,$0058,$0059
  326.       dc.w $0059,$005A,$005B,$005C,$005D,$005E,$005F,$005F,$0060,$0061
  327.       dc.w $0062,$0063,$0064,$0064,$0065,$0066,$0067,$0068,$0068,$0069
  328.       dc.w $006A,$006B,$006B,$006C,$006D,$006E,$006F,$006F,$0070,$0071
  329.       dc.w $0071,$0072,$0073,$0074,$0074,$0075,$0076,$0076,$0077,$0078
  330.       dc.w $0078,$0079,$007A,$007A,$007B,$007C,$007C,$007D,$007D,$007E
  331.       dc.w $007E,$007F,$0080,$0080,$0081,$0081,$0082,$0082,$0083,$0083
  332.       dc.w $0084,$0084,$0085,$0085,$0086,$0086,$0087,$0087,$0087,$0088
  333.       dc.w $0088,$0089,$0089,$0089,$008A,$008A,$008B,$008B,$008B,$008B
  334.       dc.w $008C,$008C,$008C,$008D,$008D,$008D,$008D,$008E,$008E,$008E
  335.       dc.w $008E,$008E,$008F,$008F,$008F,$008F,$008F,$008F,$008F,$0090
  336.       dc.w $0090,$0090,$0090,$0090,$0090,$0090,$0090,$0090,$0090,$0090
  337.       dc.w $0090,$0090,$0090,$0090,$0090,$0090,$0090,$0090,$008F,$008F
  338.       dc.w $008F,$008F,$008F,$008F,$008F,$008E,$008E,$008E,$008E,$008E
  339.      dc.w $008D,$008D,$008D,$008D,$008C,$008C,$008C,$008C,$008B,$008B
  340.      dc.w $008B,$008A,$008A,$0089,$0089,$0089,$0088,$0088,$0088,$0087
  341.      dc.w $0087,$0086,$0086,$0085,$0085,$0084,$0084,$0083,$0083,$0082
  342.      dc.w $0082,$0081,$0081,$0080,$0080,$007F,$007F,$007E,$007D,$007D
  343.      dc.w $007C,$007C,$007B,$007A,$007A,$0079,$0078,$0078,$0077,$0076
  344.      dc.w $0076,$0075,$0074,$0074,$0073,$0072,$0072,$0071,$0070,$006F
  345.      dc.w $006F,$006E,$006D,$006C,$006C,$006B,$006A,$0069,$0068,$0068
  346.      dc.w $0067,$0066,$0065,$0064,$0064,$0063,$0062,$0061,$0060,$0060
  347.      dc.w $005F,$005E,$005D,$005C,$005B,$005A,$005A,$0059,$0058,$0057
  348.      dc.w $0056,$0055,$0054,$0054,$0053,$0052,$0051,$0050,$004F,$004E
  349.      dc.w $004D,$004D,$004C,$004B,$004A,$0049,$0048,$0047,$0046,$0045
  350.      dc.w $0045,$0044,$0043,$0042,$0041,$0040,$003F,$003E,$003E,$003D
  351.      dc.w $003C,$003B,$003A,$0039,$0038,$0037,$0037,$0036,$0035,$0034
  352.      dc.w $0033,$0032,$0032,$0031,$0030,$002F,$002E,$002D,$002D,$002C
  353.      dc.w $002B,$002A,$0029,$0029,$0028,$0027,$0026,$0025,$0025,$0024
  354.      dc.w $0023,$0022,$0022,$0021,$0020,$001F,$001F,$001E,$001D,$001D
  355.      dc.w $001C,$001B,$001A,$001A,$0019,$0018,$0018,$0017,$0016,$0016
  356.      dc.w $0015,$0015,$0014,$0013,$0013,$0012,$0012,$0011,$0010,$0010
  357.      dc.w $000F,$000F,$000E,$000E,$000D,$000D,$000C,$000C,$000B,$000B
  358.      dc.w $000A,$000A,$0009,$0009,$0009,$0008,$0008,$0007,$0007,$0007
  359.      dc.w $0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004,$0003
  360.      dc.w $0003,$0003,$0003,$0002,$0002,$0002,$0002,$0002,$0001,$0001
  361.      dc.w $0001,$0001,$0001,$0001,$0001,$0000,$0000,$0000,$0000,$0000
  362.      dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  363.      dc.w $0000,$0000,$0000,$0000,$0001,$0001,$0001,$0001,$0001,$0001
  364.      dc.w $0001,$0002,$0002,$0002,$0002,$0002,$0003,$0003,$0003,$0003
  365.      dc.w $0004,$0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
  366.      dc.w $0007,$0007,$0008,$0008,$0008,$0009,$0009,$000A,$000A,$000B
  367.      dc.w $000B,$000C,$000C,$000D,$000D,$000E,$000E,$000F,$000F,$0010
  368.      dc.w $0010,$0011,$0011,$0012,$0013,$0013,$0014,$0014,$0015,$0016
  369.      dc.w $0016,$0017,$0017,$0018,$0019,$0019,$001A,$001B,$001C,$001C
  370.      dc.w $001D,$001E,$001E,$001F,$0020,$0021,$0021,$0022,$0023,$0024
  371.      dc.w $0024,$0025,$0026,$0027,$0027,$0028,$0029,$002A,$002B,$002B
  372.      dc.w $002C,$002D,$002E,$002F,$0030,$0030,$0031,$0032,$0033,$0034
  373.      dc.w $0035,$0035,$0036,$0037,$0038,$0039,$003A,$003B,$003B,$003C
  374.      dc.w $003D,$003E,$003F,$0040,$0041,$0042,$0042,$0043,$0044,$0045
  375.      dc.w $0046,$0047
  376.  
  377. datas2      dc.w $0038,$0038,$0039,$003A,$003A,$003B,$003C,$003C
  378.       dc.w $003D,$003E,$003F,$003F,$0040,$0040,$0041,$0042,$0043,$0043
  379.       dc.w $0044,$0044,$0045,$0046,$0047,$0047,$0048,$0048,$0049,$004A
  380.      dc.w $004B,$004B,$004C,$004C,$004D,$004E,$004E,$004F,$004F,$0050
  381.      dc.w $0051,$0051,$0052,$0052,$0053,$0054,$0054,$0055,$0056,$0056
  382.       dc.w $0057,$0057,$0058,$0058,$0059,$005A,$005A,$005A,$005B,$005C
  383.       dc.w $005C,$005D,$005D,$005E,$005E,$005F,$005F,$0060,$0060,$0061
  384.      dc.w $0061,$0061,$0062,$0062,$0063,$0063,$0064,$0064,$0065,$0065
  385.      dc.w $0065,$0066,$0066,$0066,$0067,$0067,$0068,$0068,$0068,$0069
  386.      dc.w $0069,$0069,$0069,$006A,$006A,$006A,$006B,$006B,$006B,$006C
  387.      dc.w $006C,$006C,$006D,$006D,$006D,$006D,$006D,$006D,$006D,$006E
  388.      dc.w $006E,$006E,$006E,$006E,$006F,$006F,$006F,$006F,$006F,$006F
  389.      dc.w $006F,$006F,$006F,$0070,$0070,$0070,$0070,$0070,$0070,$0070
  390.      dc.w $0070,$0070,$0070,$0070,$0070,$0070,$0070,$0070,$006F,$006F
  391.      dc.w $006F,$006F,$006F,$006F,$006F,$006F,$006F,$006E,$006E,$006E
  392.      dc.w $006E,$006E,$006D,$006D,$006D,$006D,$006D,$006D,$006D,$006C
  393.      dc.w $006C,$006C,$006B,$006B,$006B,$006B,$006A,$006A,$0069,$0069
  394.      dc.w $0069,$0069,$0069,$0068,$0068,$0067,$0067,$0067,$0066,$0066
  395.      dc.w $0065,$0065,$0065,$0064,$0064,$0063,$0063,$0062,$0062,$0061
  396.      dc.w $0061,$0061,$0060,$0060,$005F,$005F,$005E,$005E,$005D,$005D
  397.      dc.w $005C,$005C,$005B,$005A,$005A,$005A,$0059,$0059,$0058,$0057
  398.      dc.w $0057,$0056,$0056,$0055,$0054,$0054,$0053,$0052,$0052,$0052
  399.      dc.w $0051,$0050,$004F,$004F,$004F,$004E,$004D,$004C,$004C,$004B
  400.      dc.w $004B,$004A,$0049,$0049,$0048,$0047,$0047,$0046,$0045,$0045
  401.      dc.w $0044,$0043,$0043,$0042,$0041,$0040,$0040,$003F,$003F,$003E
  402.      dc.w $003D,$003C,$003C,$003B,$003A,$003A,$0039,$0038,$0038,$0037
  403.      dc.w $0036,$0036,$0035,$0034,$0034,$0033,$0032,$0031,$0031,$0030
  404.      dc.w $0030,$002F,$002E,$002D,$002D,$002C,$002B,$002B,$002A,$0029
  405.      dc.w $0029,$0028,$0027,$0027,$0026,$0025,$0025,$0024,$0024,$0023
  406.      dc.w $0022,$0021,$0021,$0020,$0020,$001F,$001E,$001E,$001D,$001D
  407.      dc.w $001C,$001B,$001B,$001A,$001A,$0019,$0019,$0018,$0017,$0017
  408.      dc.w $0016,$0016,$0015,$0015,$0014,$0013,$0013,$0012,$0012,$0012
  409.      dc.w $0011,$0010,$0010,$000F,$000F,$000F,$000E,$000E,$000D,$000D
  410.      dc.w $000C,$000C,$000B,$000B,$000B,$000A,$000A,$0009,$0009,$0009
  411.      dc.w $0008,$0008,$0007,$0007,$0007,$0007,$0006,$0006,$0006,$0005
  412.      dc.w $0005,$0005,$0004,$0004,$0004,$0003,$0003,$0003,$0003,$0003
  413.      dc.w $0002,$0002,$0002,$0002,$0002,$0001,$0001,$0001,$0001,$0001
  414.      dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  415.      dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  416.      dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  417.      dc.w $0000,$0000,$0000,$0001,$0001,$0001,$0001,$0001,$0002,$0002
  418.      dc.w $0002,$0002,$0002,$0003,$0003,$0003,$0003,$0003,$0004,$0004
  419.      dc.w $0004,$0004,$0005,$0005,$0005,$0006,$0006,$0007,$0007,$0007
  420.      dc.w $0007,$0008,$0008,$0008,$0009,$0009,$000A,$000A,$000B,$000B
  421.      dc.w $000B,$000C,$000C,$000D,$000D,$000E,$000E,$000F,$000F,$000F
  422.      dc.w $0010,$0010,$0011,$0011,$0012,$0012,$0013,$0013,$0014,$0014
  423.      dc.w $0015,$0016,$0016,$0016,$0017,$0018,$0018,$0019,$001A,$001A
  424.      dc.w $001A,$001B,$001C,$001C,$001D,$001E,$001E,$001F,$001F,$0020
  425.      dc.w $0021,$0021,$0022,$0022,$0023,$0024,$0025,$0025,$0026,$0026
  426.      dc.w $0027,$0028,$0029,$0029,$002A,$002A,$002B,$002C,$002D,$002D
  427.      dc.w $002E,$002E,$002F,$0030,$0030,$0031,$0032,$0033,$0033,$0034
  428.      dc.w $0034,$0035,$0036,$0037
  429.  
  430. code1    dc.w     $28,0,0,0,0
  431. code2    blk.l    6,-1
  432. code3    blk.w    4,0
  433. tarolo    blk.w    16,0
  434. lass    dc.w    $e0
  435. pointr    dc.w    0
  436. textura    dc.l    0
  437.